home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_90_mouse script - paste-import-new.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  1.9 KB  |  85 lines
  1. property pMySprite, pMyMember, pMyMember2, pMyMember3
  2. global gProject, gSize
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6.   pMyMember = pMySprite.memberNum
  7.   pMyMember2 = pMyMember - 1
  8.   pMyMember3 = pMyMember + 1
  9. end
  10.  
  11. on mouseEnter me
  12.   set the memberNum of sprite pMySprite to pMyMember3
  13.   case the currentSpriteNum of
  14.     "30":
  15.       put "Close current project and start a new one. (Ctrl+N)" into field "status"
  16.     "32":
  17.       put "Import an image from a file to the current project. (Ctrl+I)" into field "status"
  18.     "39":
  19.       put "Paste an image from the clipboard to the current project. (Ctrl+V)" into field "status"
  20.     "308":
  21.       controlStatus()
  22.   end case
  23. end
  24.  
  25. on mouseLeave me
  26.   set the memberNum of sprite pMySprite to pMyMember
  27.   put EMPTY into field "status"
  28. end
  29.  
  30. on mouseDown me
  31.   repeat while the mouseDown
  32.     set the memberNum of sprite pMySprite to pMyMember2
  33.     updateStage()
  34.   end repeat
  35. end
  36.  
  37. on mouseUp me
  38.   set the memberNum of sprite pMySprite to pMyMember3
  39.   case the currentSpriteNum of
  40.     "30":
  41.       newProject()
  42.     "32":
  43.       importColorImage()
  44.     "39":
  45.       pasteFromClipboard()
  46.     "308":
  47.       openControl()
  48.   end case
  49. end
  50.  
  51. on newProject
  52.   if gSize = "8" then
  53.     new1bitPattern()
  54.   else
  55.     if sprite(4).left <> 800 then
  56.       newColorProject()
  57.       put EMPTY into field "dimension status W"
  58.       put EMPTY into field "dimension status H"
  59.     else
  60.       newColorProject()
  61.     end if
  62.   end if
  63. end
  64.  
  65. on forceReset me
  66.   set the memberNum of sprite pMySprite to pMyMember
  67.   put EMPTY into field "status"
  68. end
  69.  
  70. on controlStatus
  71.   if gProject = "cursor" then
  72.     put "Open the Windows Mouse control panel. (Ctrl+1)" into field "status"
  73.   else
  74.     put "Open the Windows Display control panel. (Ctrl+1)" into field "status"
  75.   end if
  76. end
  77.  
  78. on openControl
  79.   if gProject = "cursor" then
  80.     baRunProgram("control.exe main.cpl", "normal", 0)
  81.   else
  82.     baRunProgram("control.exe desk.cpl", "normal", 0)
  83.   end if
  84. end
  85.